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EDTSLINSERT = insert text Sep VAX=-11 iss-32 V 1 
er ee= tbe 93:39:48 BT SUMMASTERCCEOT SRCILINSERT.BLIsTe (1) 
ZTITLE ‘EDTSLINSERT = insert text' 
MODULE EDTSLINSERT ( ! Insert text 
— = 'v04-000' ' File: LINSERT.BLI Edit: JBS1013 


BEGIN 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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® 
i OF TW . 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP Of THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
' * 
it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
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'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
This module executes the Line mode INSERT command. 


It also provides support for the insert part of the 
REPLACE command. 
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sre ENVIRONMENT: Runs at any access mode - AST reentrant 
9 AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
G04 MODIFIED BY: 
0046 1 | 1-001 = Original. OJS 30-JAN-81. This module was created by | 
0047 i extracting routines INSERT and INS_COM from EXEC.BLI. 
0048 1 ! 1-002 - Beguier! ze headers. JBS 20-Mar-1981 
0049 i q- - Change INS_COM to EDTSSINS_ CHD. BS 30-Mar-1981 
050 ' 1-004 = Do prompt ifig from a global. 4B 25-0ct-1981 
51 i 1-005 = Add error check for foo aor) ines. SMB 5-Feb-1982 
26 i 1- $ = Reset command buffer after EOF. STS 25-Jun-1982 
5 i 1- - Add CRLF for EXT insert and replace commands a athe -1982 
54 i q- 8 - Change indents ton for large Line numbers. Fs om 1 § 
55 i q- - Use previous Line size instead of urrent, i3n8 | sags -19 
2026 i 1-010 = Put code for edt$$rng_posfrst in Line. “tet 1 
005 i 1-011 = Use new macro for comparing Line vba 2 Sts 0c t-1982 


ERTS. INSERT EDTSLINSERT = insert text 1b-se =36071382 99: 3g: }? ts a nt jst Shee 


v4.0 
EDT.S 
: 38 2 17018 - Don't print CRLF unless we are coming from the terminal. JBS 19-Jan-1983 
; n 
> 60 be 


SRCSLINSERT. BLI; ¥ 9 45 


= Make sure select is at the beginning of the e before inserting. JBS 12-Jul-1983 
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XSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 
FORWARD ROUTINE 
EDTS$ 


SINS_TXT : NOVALUE, 
EDTSSINS_CMD : NOVALUE; 


; INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


i MACROS: 
} NONE 

EQUATED SYMBOLS: 

NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routines 


3 
1eSep-1984 19:28:46 DISKSVNSRAST 


' Insert text 
! Process the INSERT command 
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TSLINSERT TSLINS 0-74 Page 4 
Rue000 EDISSING TXT - insert text D SMASTE EDT SRCSLINSERT.BLI: 1 (3). 
3 4 $67 ! ZSBTTL 'EDTSSINS_TXT = insert text’ : 
: 99 06? 1 GLOBAL ROUTINE EDTSSINS_TXT ! Insert text for INSERT and REPLACE commands ° 
; 100 670 1 : WOVALUE = . 
3 30% 0671 1 ‘ 
; 196 bore 1 l+4 ‘ 
3 1 ! FUN NAL N: ‘ 

\3? of? : FUNCTIO DESCRIPTIO : 
: 105 675 1! This routine handles the insertion of text from an INSERT or REPLACE ‘ 
; 198 o76 1! command. If the current token from the parser is a ';', then the text ‘ 
; 10 677 1! to be inserted is the remainder of the command Line. Otherwise, loop ° 
3 138 ber8 : } reading a Line and inserting it until an end of file is detected. ; 
; 110 680 1 | FORMAL PARAMETERS: : 
3 3) 681 1! | ‘ 
fives: tip = caedl 
: Vie O68 : IMPLICIT INPUTS: | ; 
; 116 0686 1! EDTSSA_CMD_END ° 
3; 43 ee 44 1! EDTS$$G_CMD_LEN : 
; 118 688 1! EDTS$A_CMD_BUF : 
: #119 0689 1! EDT$$G_INP_SRC : 
; 130 0690 1! EDTS$$G_NO : 
> 121 0691 1 | EDT$S$A_PA_CURTOK | : 
3 \$¢ 2996 . EDTSS$T_PMT_INS : 
zB 0693 1! EDTS$$T_PMT_INSN | : 
: 126 0694 1! EDTS$$T_LN_6uF | : 
; 125 0695 1! : 
oe $ 06 1 ! IMPLICIT OUTPUTS: ; 
; 4 0697 1 | | 
; 128 0698 1! EDTS$T_CMD_BUF : 
3 94 0699 1! EDTSS$A_SEL_POS : 
; 150 700 1! ‘ 
s 131 701 1 ! ROUTINE VALUE: : 
4 0702 1! ; 
em 0703 1! NONE : 
rs 0704 1! : 
s 135 0705 1 ! SIDE EFFECTS: ‘ 
: 13 0706 1! : 
; ¥ 34 1! NONE | : 
; «#4138 708 1! : 
i RM aa 
; 141 a BEGIN - 
; 128 718 EXTERNAL ROUTINE : 
3: (146 714 EDTSSFMT_CRLF, ! Start a new Line : 
: «(145 715 EDTSS$TI_ORSTR, | ‘ 
; 146 716 EDTSSGET_LN ! Get the next input Line : 
: 16 717 EDTSSEND~ INS, ; 
; 148 ay EDTSSINS_LN : 
: 149 71 EDTSSSTART_INS, : 
; 130 i EDTS$TY_CURLN; ! Type out the current Line 
: 15 ? EXTERNA | : 
; 138 07 4 EDTSSL._WK_STARTNO : LN BLOCK, | : 


ro 
EDTSLINSERT EDTSLINSERT = insert text 16-Sep-1984 00:52:19 VAX-11 Bliss-32 V4.0-74 Page 5) 
Tea boO EDTSSING. TXT ~ Tnsert text 12-88-1382 99:39:48 DISKSVMGMASTERSCEDT  SRCSLINSERT.BLIs1 . (3) 
: 156 724 EDTS$L_LNOO : LNOVECTOR [14], | 
s 339 725 EDTSSA_FMT_WRRUT, 
‘7 : 7 § EDTS$G_EXT_MOD, 
*s 7 EDTSST_CMD_BUF, 
ie : 7 8 EDTSSA_CMD_END, 
PR 7 EDTSS$G_CMD_LEN, 
: 160 7530 EDTSSA_CMD_BUF, 
> «161 731 EDTSS$G_INP_SRC, 
3 166 7 § EDTS$G_NOS ! 1 = numbers, 0 = nonumbers 
: 16 7 EDTSSA_PA_CURTOK, 
> 164 734 EDTSST_PMT_INS : VECTOR C, BYTE) ! Counted ASCII string for Line-mode insert prompt 
; 165 735 EDTSST_PMT_INSN : VECTOR t, pytéed, ' Counted ASCII string for Line-mode insert nonumbers prompt 
: 166 7 § EDTS$T_LN BUF ' Line buffer 
3 a4 g i EDTSS$A_SEC_ os; ! Position of select point 
; «#4169 ef 9 LOCAL 
: 170 740 BIG_LINE_PMT : VECTOR (32, BYTE], ! Prompt for Lines larger than 10**5 
» ir 0741 STATUS, 
; 176 hog EOF ; 
; V7 074 
> 174 0744 '¢ 
: 175 0745 ' Set up the work-file system for insertion 
: 176 O7e6 t 
: 177 074 EDTSSSTART_INS (); 
; 178 0748 ! 
5 4 544 Look for the immediate insertion signaled by a ';' following the command. 
; «181 0751 
: 136 0736 IF (CHSRCHAR (.EDTSSA_PA_CURTOK) EQL %C';") 
; 075 THEN 
: «(184 0754 BEGIN 
: 185 0755 EDTSSINS_LN (.EDT$SA_PA_CURTOK + 1, .EDTS$SA_CMD_END - .EDTS$$A_PA_CURTOK - 1); 
; 186 0796 EDT$$A_CAD_BUF = .EDTS$A_CMD_END; 
: 187 075 END 
; «#188 0758 ELSE 
3; «4189 0759 '¢ - 
: 190 0760 ! Insert mode loop. Keep reading and inserting Lines until EOF or until 
: 13 boe3 the maximum number of Lines has been reached for this buffer 
g 198 3 BEGIN 
; +4 Bee & IF (.EDTSSG_EXT_MOD AND (.EDTSSA_FMT_WRRUT EQL EDTSSTI_WRSTR) AND (.EDTS$G_INP_SRC EQL INP_TERM)) 
3 «6197 O76? EDTSSFMT_CRLF (); 
: 198 768 
3; «6199 3768 '¢ | 
: 200 770 ! Set up the prompt for large Lines just in case we need it later 
: 201 0771 ' (only want to do this once. To do this we add 5 spaces after the 
3 4 4a ! <CR><LF> in the prompt. 
: 20 77 le 
; 2046 774 
: 205 775 4 IF (.EDTS$G_NOS EQL 1) 
3 5] 776 3 THEN 
; 20 777 4 BEGIN 
: 208 778 4 BIG _LINE_PMT (0) = .EDTSST_PMT_INS (0) + 5; 
; 209 779 4 CHSMOVE (2, EDTSST_ PMT INS 1]7_B1G LINE PAT (1}): | 
: 210 780 4 CHSMOVE (,EDTS$T_PAT_IAS 0] - 2, EBTS$T_PMT_INS [3, BIG_LINE_PMT (8)); 
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EDTSLINSERT EDTSLINSERT = insert text 18-se -1984 00:52:19 VAX-11 Bliss-32 V4.0-74 Pa 
tee tt EDTSSING. TXT - insert text 1 ~8ep-19 4 99:39:42 DISK SVMEMASTERSCEDT SRCTLINSERT.BLI: 1 
s 2 781 4 CHSFILL (2C° *, 5, BIG_LINE_PMT (3)); 
; \§ 7 § END; 
: 1 7 
> 214 784 dO 
; 215 785 4 BEGIN 
; 1§ 7 § & 
ea 7 4 LOCAL 
: 8 f 3 2 PROMPT_ADDR : REF VECTOR C, BYTE); 
: 9 ry ? i ((CMPLNO (EDTSSL_WK_STARTNO, EDTSSL_LNOO [10]) GEQ 0) AND (.EDT$$G_NOS EQL 1)) 
; ¢ a ? nS PROMPT_ADDR = BIG_LINE_PMT 
: 3 re PROnE] AaOR = (CASE .EDTS$G_NOS FROM 0 TO 1 OF 
3 § 079 } : EDTSST_PMT_INSN; 
3 143 IJ: COT SOT PAT INS: 
: 8 798 #5 OUTRANGE) : 
: 9 0799 6 BEGIN 
; 0 0800 6 ASSERT (0); 
: 1 0801 6 0 
3 ¢ pa0e 5 END; 
Re Be ve 
3 Se Ba82 7 EOF = EDTSSGET_LN (PROMPT_ADDR [1], .PROMPT_ADDR [0)); 
; $3 0807 5 IF (€ NOT .EOF) OR (.EDTSSG_CMD_LEN NEQ 0)) ! 
; 238 0808 4 THEN 
3 as 0809 5 BEGIN 
; 240 0810 5 EDTSSA_SEL_POS = EDTS$T_LN BUF; 
; 241 0811 5 STATUS = EBTSSINS_LN (EBTSST_CMD_BUF, .EDTSS$G_CMD_LEN); 
3 see bats 4 END; 
: 24 0813 4 
3 ste 0814 4 END 
; 245 0815 ; UNTIL ((.EOF) OR ( NOT .STATUS}); 
; $08 oa8 
: 267 081 END; 
; 248 0818 
3 rh 0819 IF .EOF 
: 250 0820 THEN 
; $2 0821 BEGIN 
; 2 bas¢ EDTSSA_CMD_END = EDTSS$T_CMD_BUF; 
: 08 EDTSSA_CMD_BUF = EDTSS$T_CMD BUF; 
: 254 oe 4 CHSWCHAR (*!", .EDTSSA_CMD_END); 
3 229 825 END; 
: 256 8 $ 
; 257 ; '¢ 
5 58 8 ! Inform the work file system that the insert is complete, and print 
; 259 +4 ! the next Line. 
: 260 0 le 
: re oe) EDTSSEND_INS (); 
; e8 538 IF (.EDTS$G_INP_SRC EQL INP_TERM) THEN EDTSS$TY_CURLN (); 
3; 265 HE END; ! of routine EDTSSINS_TXT 
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EDTSLINSERT EDTSLINSERT = insert text 16 -$ 9 =VAK=11 Bliss-32 v4.0 Pa 7) 
4.000 EDTSSING. TXT = insert text 2 - ae 138 99: 3¢: ¥ DISKSVMSMASTER:CEDT. She LINSERT.BLI:1 > (3) 
TITLE EDTSLINSERT EDTSLINSERT = insert text | : 
“TbEhT \V04 : 
.EXTRN EDISSENT CRLF EDISSTI WRSTR | ; 
SEXTRN EDTSSGET“LN, EDTSSEND_ INS ; 
“EXTRN EDTSSINS“LN, ; EDISSSTA T_INS ; 
~EXTRN EDTSSTY sebR RLN, EDTSS$L_WR STARTNO : 
VEXTRN EDTSSL "tno0, EDTS$A_FAT QRRUT ; 
EXTRN EDTS$$G-EXT_MOD, EDTS$T_CMD_BUF ; 
-EXTRN EDTSSA_CMD-END, EDTS$$G_CMD"LEN ; 
XTRN EDTSS$A~CMD~BUF EDTSSG INP SRC : 
EXTRN EDT$$G_NOS, EDTS$A_PA_CURTO : 
XTRN EDTSST-PMT_INS, EDTSST_PMT_INSN F 
-EXTRN EDTSST LN BUF, EDTS$$A_SEL_POS ; 
“EXTAN EDTSSIATER-ERR © : 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 : 
OFFC 00000 ENTRY EDTSSINS_ TXT, Save R2,R3,R4,R5,R6,R7,RB.R9,-; 0669 ; 
a eggonone gb Se 9988s BaVAB RUA gmD aU : : 
33 900000008 00 96 OI? MOAB EDTSSG7 ERD but aut ks 
37 900000006 00 9E 0001 MOVAB EDTS$$T_PMT_IN NS, R7 : ; 
26 000000006 90 H 900 3 HOVAB EDISSAE CMD“END, R6 : 
000000006 00 60 FB 0003 CALLS #0, EDTSSSTART_INS > 0747 : 
31 000000006 00 b0 900 6 nov EDESSA #h- CURTOK, R1 ; 0752 : 
13 le 00040 BNEQ 1$ - : : 
50 66 51 ¢3 00042 SUBL3. RI EDTSSA_CMD_END, RO : 0755 
FF AO SF 00046 PUSHAB =-1(R : 
01 Al 9F 00049 PUSHAB 1(R1) : 
6A 02 FB 004¢ CALLS #2 GOTSSINS LN : 
68 be p 0004F MOVL  EDTSS$A_CMD_END, EDTSSA_CMD_BuUF : 0756 
O0ES 31 0052 BRW 138 : O75¢ 
1F 000000006 09 £9 0055 1$: BLBC _—s@EDTS$ MOD, 3° : 076 
50 000000006 00 i 005 MOVAB eoTsaiTe URSTR : 
50 000000006 90 p 9063 CMPL EDTSSA_ FMT *URRUT RO : 
000000006 09 08 906¢ iste DT$$G_INP_SRC : 
000000006 00 00 F 74 CALLS #0, EDTSSFMT_CRLF : 0767 
of $8 ff a074 2$: CMPL Dfssc G_NOS, #1 ; $F 5 
1¢ 12 0007 BNEO ; | 
50 67 9A 00 MOV ZBL ae PMT INS. RO : 0778 
6E 50 05 81 0008 ADDB RO; BIG_L INE Pa : 
01 af 01 =A? OB 0 MOVW T_PMT "TNS* BIG _LINE_PMT+1 3 0779 
5 08 08C SUBL ? test : 0780 
08 ac 03 «A? ; 0 F moves ‘ EDT $$T_PMT_INS+3, BIG LINE_PMT+8 ; 
05 2 6E , 00 C 00 95 move ; (SP), #32,7#5, BIG_LINE_PMT+3 ; 0781 
51 9900000 6 00 3 00% 3$: MOVZWL HIGH_1, R1 ; 0790 
20 00000006 00 3c OA MOVZWL HIGH z. RO ; 
1 01 AA CMPL R1, R 3 
15 1F OOOAD BLSSU  4$ : 


EDTSLINSERT SLINSERT = insert text 1b-se Sep-1 VAX-11 Bliss-32 V4.0-74 P 

V04= SENS TXT - insert text 1 ~ep-1 7 99: 36 ¥ DIEKSVMGHASTERSCEDT SRCILINSERT.BLIs1e 

1 G of 06 HY pve cow. 1. A ‘ 

$0 Matai p D B8 MOVL LOW-2, RO : 

1 pi BF CMPL =e, “RO : 

5 1€ 000C2 BGEQU 5$ : 

1 cE C4 4$: MNEGL #1, RO : 

9 (7 BRB 7$ : 

4 12 000€9 5$: BNEQ 6$ : 

g D4 000CB CLAL = RO : 

: 11 CD BRB 7$ : 

50 1 DO O00CF $$ MOVL #1, RO : 

OA 19 be 4 BLSS «BS : 

01 68 01 D4 CMPL EDTSSG_NOS, a ; 

05 12 00007 BNEQ 5 : 

52 6E 9E 00009 MOVAB BIG. LINE_PMT, PROMPT_ADDR : 

-F 11 6000C BRB 12$7 : 

01 00 68 cf O00E aS CASEL EDTS$G_NOS, #0, #1 : 

0018 000F OOVE2 9S «WORD 105-98, ; 

000000006 00 99 FB OO0E6 CALLS #0 EDTSSINTER ERR : 

52 D4 000ED CLRL = PROMPT _ : 

OC 11 OOOEF BRB 12$ : 

52 000000006 o H OOF! 10S: MOVAB pIsst_ PMT_INSN, PROMPT_ADDR : 

52 67 9E OOOFA 11$: MOVAB  EDTSS$T_PMT_INS, _PROMPT _ADOR : 

7E 62 9A OOOFD 12$: MOVZBL (PROMPT_ADBR), -(SP) : 

01 Ad OF 90199 PUSHAB 1(PR OnPT eA DDR ; 

000000006 09 0 FB 9919 CALLS #2, EDTSSCET LN ; 

5 50 DO O010A MOVL RO, EOF ; 

08 53 £9 00100 BLBC EOF, 13 ; 

000000006 00 D3 00110 TSTL EDT$$G_CMD_LEN ; 

19 13 00116 BEQL 148 F 

000000006 00 000000006 00 9€ 00118 13$:  MOVAB EDTS$T_LN_BUF, EDTSSA_SEL_POS ; 

000000006 90 DD 91 PUSHL EDTS$$G~CMB_LEN ; 

9 DD 00129 PUSHL R9 F 

6A 02 FB 0012B CALLS #2, EDTSSINS_LN : 

54 3 D0 012€ MOVL RO, STATUS : 

09 £8 00131 148: BLBS EOF, 16$ : 

03 54 5 1 BLBC Tafus, 15$ ; 

FFG 1 00137 BRW $ ; 

0c 9 13a 15$:  BLBC EOF, 178 ; 

66 69 96 00130 168:  MOVAB EDT$ST_CMD_BUF, EDTSS$A_CMD_END ; 

69 9 9149 MOVAB EDTS$T“CMD"BUF, EDTS$A_CMD BUF ; 

‘ 6 p 14 MOVL CE 1S$A MD-END, RO ; 

6 1 146 MOVE #33, (R ; 

000000006 00 0 FB 00149 178: CALLS @ EDTSSEND INS ; 

000000006 9 d5 00150 TSTL EDT $$G_INP_SRC ; 

12 001 6 BNEG  18$ ; 

000000006 00 00 FB 001 CALLS #0. EDT$$TY_CURLN ; 

04 0015F 18%: RET ; 


; Routine Size: 352 bytes, Routine Base: _EDTSCODE + 0000 


: 266 0836 1 


INSERT = insert 
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tex 4 2:52:19 VAX-11 Blis 
INS_CMD = INSERT Line-mode command 102808-1 382 99:39:48 DISKSVMSMAS TER CEDI 
RSBTTL "EDTSSINS_CMD = INSERT Line-mode command’ 
GLOBAL ROUTINE EDTSSINS_CMD ! INSERT Line=-mode command 
: NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


Command processing routine for the INSERT command. Position to the 
specified range and, if it positioned successfully, do the insert. 


FORMAL PARAMETERS: 


wre 


NONE 


IMPLICIT INPUTS: 


MOTION 


EDTSSA_EXE_CURCMD 


IMPLICIT OUTPUTS: 


NONE 


ROUTINE VALUE: 


SPSSISSELESE 


NONE 


! SIDE EFFECTS: 
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NONE 


BEGIN 


EXTERNAL ROUTINE 
EDTS$RNG_REPOS; 


EXTERNAL 
T$$G_RNG_FRSTLN 


ED 
EDT$$SA_CUR-BUF : REF TBCB BLOCK, 
EDT$$Z-RNG_ORIGPOS : POS BLOCK, 
EDTSSA_EXE_CURCMD : REF RODE_BLOCK; ! Pointer to the current command. 
EDT$$G_RNG_FRSTLN = 1; 
EDTSS$CPY_MEM (POS_SIZE, .EDTS$SA_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 
If _EDTSSRNG_REPOS (.EDTS$A_EXE_CURCMD CRANGE1)) 


BEGIN 
EDTSSINS_TXT (); 
END; 


! of routine EDTSSINS_CMD 


s-32 V4.0-74 Pa 
CJLINSERT.BLI;1 


3 
EDTSLINSERT EDTSLINSERT - insert tex e 4 9 VAX-11 Bliss-32 V4.0-74 e 10 
Oa bb EDT BTSSiN NS_CMD = INSERT Line-mode command b-Sep- 1382 99: 3¢' 3 DISKSVMSMASTER: CEDT.SRCJLINSERT.BLI;1 a9 (4) 
.EXTRN EDTSS$RNG_REPOS, EDT$$G_RNG_FRSTL 
-EXTRN EDTS$$A_COR_BUF, EDT$$Z—RNG~ ORIGPOS 
-EXTRN EDTSS$A~EXE~CURCMD 
003¢ 000 .ENTRY EDTSSINS_CMD, Save fe R3,R4,R5 : 0839 
000000006 90 o1 D OVL sot EDTSS¢_RN RNG_ FRST : 0881 
000000006 00 p OVL. EDfS$A CUR. BUF + 0882 
000000006 00 0 19 MOVC3 #14, (RO) “EDrés2 _RNG_ORIGPOS : 
000000006 D0 0001 OVL EDT$$A_EXE_CURCMD> RO™ + 0884 
04 AO DD O001F PUSHL 4(RO) ~ ; 
000000006 00 01 FB 000 2 CALLS #1, EDTSSRNG_REPOS ; 
50 £9 000 LBC RO, 1$ ; 
FEOF CF 00 FB 0002C CALLS #0. EDTS$SINS_TXT + 0887 
04 00031 1$: RET + 0890 


; Routine Size: 50 bytes, Routine Base: _EDTSCODE + 0160 


; 356 0891 1 
Pe 0892 1 !<BLF/PAGE> 


3 
EDTSLINSERT EDTSLINSERT = insert tex 18-52 -1984 00:52:19 VAX-11 Bliss-32 V4.0-74 Page 
tee tit EDTSSING. CHD = INSERT Hae-nede command 1 ~300 71382 99:38:12 DT EKSVMEMASTERSCEDT SRCSLINSERT.BLI:1 ° Gd 
: 336 0834 } END ! of module EDTSLINSERT 
: ; 95 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
:  EDTSCODE 402 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
; eee Syaboelg oneneses Pages Processing 
s File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 91 24 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
: COMMAND QUALIFIERS 


SLISS/CHECESSE TELS, INET EAL OPT IRI EE) /UG TRACEBACK 150. 15814 INSERT /OR JORIS 18 INSERT MSRC$:LINSERT .BLI/UPDATE=(ENHS:LINSERT 


Size: 402 cod 0 data bytes 
Run Time: 00:1 
Elapsed Time: 0958 
Lines/CPU Min: 2 
. Lexemes/CPU-Min: 982 
monary Used: 133 pages 
Compilation Complete 


1 
) 
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